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BASSDATE_TIME 1b-Se -1984 00:17:59 AX-11 Bliss-32 V4.0-74 Page 1 8 

12-88-1382 90:17:23 YBASRTL SRE BASDATEST B251 . (1). 1 
; 1 001 MODULE BASSDATE_TIME ( ! Date and Time functions d 
: ¢ 38 ~POENT = '1-015' ' File: BASDATETI B32 EDIT: STAN1015 3 
3 4 004 1 BEGIN 3 
3 5 0005 1! F 
3 8 Bone : | Seecoeenenseqoneneeeeneqeeeeeeeoronerererorseoeseresnensereseseseresseeelees 3 
; 'e * 3 
§ 8 0008 1 !* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * 3 
3 o 0009 1 !* DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * 3 
3 19 id : :* ALL RIGHTS RESERVED. * 3 
: : * F 
; \¢ Bog 1 !* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 3 
 % 00153 1 !* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 3 
s 0014 1 !* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 3 
;: p82 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 3 
; 16 0016 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * : 
: i? ete : ¢ TRANSFERRED. * 
Py 4 * 
; 0019 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
; wo 0020 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
3 $i th : i: CORPORATION. * 
3 : * 
3 $$ $058 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
3 $e Bose : - SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
3 . ® 
: @& $038 1 !e * 
3 a7 Ve MCSE SST STS TTP T Tree Te eee Perr rrr ir icici titi titi titi titi iii itiiiiic 
5; a 0028 1! 
ae , | 4534 1 
3 30 0030 1 !+¢ 
— oe 0031 1 =! FACILITY: BASIC-PLUS-2 Miscellaneous Support 
;- - BoRs 1! 
3 33 0035 1 ! ABSTRACT: 
3 34 0034 1! 
; 0035 1! This module contains the DATE and TIME functions as defined 
3 38 Bo 36 ' in the BASIC-PLUS-2 Language manual. 
3 $ ais ' ENVIRONMENT: VAX=-11 User Mode 
g re apg ! : AUTHOR: John Sauter, CREATION DATE: 19-FEB-1979 
s 62 B0e§ 1 ! MODIFIED BY: 
s 65 0045 1! 
: 644 0044 1 ! 1-001 - Original. JBS 19-FEB-1979 ; 
s 65 0045 1 ! 1-002 - Correct the computation of DATES to give a positive absolute 
: 46 0046 1! time for the Last call to SASCTIM. JBS 23-FEB-1979 
o. OF 0047 1 ! 1-003 - Correct bad offsets for the current time field in the string 
: «648 0048 1! returned by LIBSDATE_TIME. This will have to be tested at 
: 49 0049 1! several boure of the gay to verify that the offsets are 
. = 0050 1! fixed. JBS 07-MAR-1979 
2. oe 0051 1 ! 1-004 - Return the sgcone ong shire letters of the month in lower 
; 26 B36 +: case. JBS 07-MAR-197 : 
5 4 053 1 ! 1-005 = Change the ie entry point names to end with _T rather than 
; 054 1! DX. JBS 19-MAR-1979 
>. 055 1 ! 1-006 - Change LIB$S and OTS$S to STR$. JBS 21-MAY-1979 
3 29 9036 1 ! 1-007 = Change calls to STRSCOPY. JBS 16-JUL-1979 
co 0057 1 ! 1-008 - Correct a comment. JBS 07-NOV-197 


Pe Rees Oe ee Or Abts edits OPE AE at 


oe HESeor19Re Q0:17:89 WARSI OLtegste ytsti7eg te 


3 28 038 1! 1-008 - Add pounds checking f r TIMES. PLL 11-MAY-1981 

: & 59 1 | 1-010 = DATES should return 08- xX O'when passed an invalid 

: 61 61 1: 1-01) = LiBsSYOP" should be be dec ares EXTERNAL. PLL 20-Nov-81 

ae 06 1! 1-012 - Use IBSGET_EF to obtain an event flag for GETJPI. f none is 
3; § 1! specified, é@ 4 zero is : d, and this may interfere with other 
s 66 4 1! ro egures. PLL 30-Nov- 

; 65 065 1 ! 1-013 = Finish Last edit. PLL 1-Dec-81 

. oa bo8 1! 1-014 - ber toreence improvements on TIME(O), TIME$(0), DATE$(0). Now 
: «6 9 13 calls $ASCTIM instead of LIBSDATE TIME. MDL {2-Jul-1982 

; oe 1 } 1-015 = Remove informational errors. STAN 24-Jul-1984. 

i 

; 1 

; 1 


!<BLF /PAGE> 


ae 


EXTERNAL REFERENCES: 


EXTERNAL ROUTINE 
BSGET _EF 


Oe CEE FE ee a ET RR ey Sa SO Se a a CN PT . x c 
11 | 
BASSDATE_TIME 1b-Se 1984 00:17:59 AX-11 Bliss-32 V4.0-74 Page 3 E 
wit 1e-8ep- 1984 $iiscs29  EBASRIL SRE TBAGDATES T -BS2e1 8 12) 1 
; 073 1! 
: 75 Sos 1 ! SWITCHES: : 
(Ro BBY! 
3 0077 } SWITCHES ADDRESSING_MODE (EXTERNAL = GENERAL, NONEXTERNAL = WORD_RELATIVE); ; 
; 80 0079 1! 
: 81 0080 1 ! LINKAGES: 
3 Ht 0081 1! 
; Bees 1! NONE 
3; «B4 0083 1! 
: 5 Bees 1 ! TABLE OF CONTENTS: 
3 6 085 1! 
; Of 0086 1 
: 88 0087 1 FORWARD ROUTINE 
; 0088 1 BASSDATE_T : NOVALUE, ! Perform a DATES function 
: 0089 1 BASSTIME_T : NOVALUE, ! Perform a TIMES function 
Gee: 0090 1 BASSTIME_F; ! Perform a TIME function 
+a 39) 1 
; § 092 1! 
: 94 0095 1 ! INCLUDE FILES: 
: 0094 1! 
s % 0095 1 
3 44 sett ! REQUIRE "RTLIN:RTLPSECT'; ! Macros for defining psects 
; WW 0192 1 LIBRARY 'RTLSTARLE'; ! Define system symbols 
: 100 0193 1 
; 101 194 1! 
; 102 195 1 ! MACROS: 
s 105 196 1! 
: 104 197 1! NONE 
3; 105 198 1! 
: 106 199 1 ! EQUATED SYMBOLS: 
: 10 200 1! 
; 0 201 1! NONE 
; 10 a4 1! 
3; VW $ 1 ! PSECTS: 
: 011 06 1 - 
3 i 4 : DECLARE_PSECTS (BAS); ! Declare psects for BAS$ facility 
» oF 2 1 ! OWN STORAGE: 
a: 2 2 73 
Ney 2 1! NONE 
. FF 1: 
s 11 1? 
Se 1! 
s i 1 
s le 1 
3; 12 1 LIBSGE ' allocate an event flag 

: ig 1 LIBSFREE_EF, ' deallocate an event flag 

9 1 LIB$STOP : NOVALUE, ! signal fatal error 

s 2 1 LIBSSUBX, ! Subtract 64-bit integers 

c+ oe 1 STRSCOPY_R, ! Copy a string by reference 

3 le 1 BASS$STOP : NOVALUE, ! signals fatal error 

3 12 : BASS$SIGNAL : NOVALUE; ! signals an error 

rid 1 
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3 } ; ¢ } The following are the error codes used in this module. 

te 1 

. § 1 BASE A LITERAL 

3: 135 8 1 Bhs wt. REOUT BOU : UNSIGNED (8), ' Argument Out of Bounds 
| 0229 1 K“NOTIMP : UNSIGNED (8), ! Not implemented 

: it 14 4 ' BASS _FATINTERR; ' OTS Fatal Internal Error 
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BASSDATE_TIME 16-Sep-1984 17:59 AX-11 Bliss-32 V4.0-74 
wet 1e-Sep-19 4 90:17 28 YBASRTL’ SRe BASDATETI.8352;1 
; 140 0 ¢ 1 GLOBAL ROUTINE BASSDATE_T ( ! Perform a DATES function 
3 16) 1 DATE_STR, ' Resulting string 
: 146 4 1 ! The day number, as defined below 
: sez 9 5 : ) : NOVALUE = 
> 145 0 : 1 !44 
; 178 8 3 : FUNCTIONAL DESCRIPTION: 
5 148 9 40 Perform a DATES function, as follows: 
: 150 0 tg 1 i DATES(G%) returns the current date in the form dd-Mmm-yy 
3 6151 0245 1! DATES(n%) returns the date corresponding to day number 
3 136 0244 1! n, where n is the day of the year (1 to 365 or 366) 
; 133 0 45 plus the number of years since 00-Jan-1970 * 1000. 
: 135 0 47 i FORMAL PARAMETERS: 
; 157 0249 1! DATE_STR.wt.d The result string 
: 138 8 9 ' DAYNO.rl.v The day number, or zero. 
: 160 025¢ IMPLICIT INPUTS: 
: 196 Ose ! The system date and time, if DAYNO = 0. 
: 164 0256 { IMPLICIT OUTPUTS: 
> 166 0258 1 NONE 
: 167 0259 1! 
; 168 0260 1 ! ROUTINE VALUE: 
: 19° oses ' COMPLETION CODES: 
: 171 $563 1 NONE 
: 72 0264 1! 
: 6 3se2 } SIDE EFFECTS: 
> 175 0267 1 NONE 
3 6176 0268 1! 
. ter 0269 1 !-- 
: 178 0270 1 
: 179 0271 2 BEGIN 
: 180 Oe7e 2! 
3: «181 0275 2! If the day number is zero, get the system day and time, and reformat 
; 13s ogre : it to conform to BASIC=PLUS=-2's standard. 
: 184 $598 
: 133 ogee A ees EQL 0) 
> (187 0279 BEGIN 
: 188 0280 
; 189 0281 CAL 
: 190 OS¢ DATE_DESC : BLOCK FS BYTE) 
; 191 028 DATE~BUF : VECTOR C24, BYTE); 
; 198 0285 3 i tated 
; H+ $443 : Build the descriptor for the date string which will contain today's date. 
; 196 0288 3 DATE_DESC CDSC$W_LENGTH) = 11; 
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12 
1e-Se -1984 00:17:59 AX=-11 Bliss-32 V4.0-74 Page 
10-385-1984 11:54:49 BASRTL SROIBASDATE TI B92: 1 . 
DATE_DESC S308 Seat = DSCSK_DTYPE_T; 
DATE _DESC [LDSC$B_CLASSJ = DSCSK CLASS_S; 
DATE_DESC COSCSA_POINTER] = DATE_BUF; 


14 
get the current date 


SASCTIM ( TIMBUF = DATE_DESC ); 


+ 
Suppress the century by putting the year on top of it. 


DATE_BUF [7] = .DATE_BUF [9]; 
DATE-BUF [8] = .DATE~BUF (104; 


'¢ 
Make sure the leading character of the day is a zero rather rhan a blank. 


IF (.DATE_BUF CO] EQL %C* *) THEN DATE_BUF [OJ = %C'0'; 
+ 

: Make sure that the 
in lower case. 


DATE_BUF [4] 


second and third characters of the month name are 


- = .DATE_BUF [C4] OR 32; 
a DATE_BUF [5] = .DATE_BUF [5] OR 32; 


Return the string to the user. We return only the first nine characters. 
: STRSCOPY_R (.DATE_STR, ZREF (9), DATE_BUF ([0]); 

RETURN; 

END; 

+ 

! The day number is not zero. Compute a date based on it. The year is 
: the day number modulo 1000, the day of the year is the day number 

: divided by 1000. To avoid having tables of the number of gays in each 
: month, and to avoid worrying about leap year (is the year 2100 a leap 
year?) we use the system time services. 

BEGIN 


LOCAL 


Y 
BYTES 


LOCK £8. ; 
(8, BYTE), 


cr 8 
aH BESC : BLOCK 


: VECTOR C 
: VECTOR }, 
: VECTOR 


ASE_DATE 
GLIA DAYS 


AY 
B 
D - 

F INAL-DATE 


Q_ 
Q. 
Q- ; 
'¢ 

Set up a dummy date string in case the DATES argument is 


DATE _BUF (0) = %C'0'; 


invalid. 


6 


(3) 


Essense -—) 
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| BASSDATE_TIME 1$-96 -1984 00:17:59 VAX-11 Bliss<-32 V4.0-74 Page 
hea 14-Sep-19 4 90:40:25 LBASRTL SREIBASDATEs1 69251 ’ 
(: 254 0346 DATE_BUF [1] = %C'0'; 

: $2? 034 DATE_BUF ¢ = %C'-'; 

> 256 0348 DATE _BUF = 2C'X'; 

3 gor 0349 DATE_BUF (4) = XC'X'; 

3 ¢oe 8329 DATE_BUF [5] = ZC°X'; 

; 259 0351 DATE_BUF [6] = %C'-'; 

; 260 0326 DATE BUF [7) = X%C'0'; 

; $e OR27 - DATE_BUF (8) = %C'0'; 

; $65 0355 : If the argument is a negative number or the day is greater than 366, it's 
> 264 0356 ! definitely invalid. Return 00-xXxx-00. If the day number is 366, 
s 265 Beee ! then make sure that year was a leap year. 

; 267 0359 ; 

> 268 0360 DAY = (.DAYNO) MOD 1000; 

> 269 0361 3 YEAR = 1970 + (.DAYNO/1000); 

; 270 beg 4 IF (.DAYNO LSS 0) OR (.DAY GTR 366) 

3 («att 0363 3 THEN 

> 272 0364 4 BEGIN 

;. a7 0365 4 STRSCOPY_R (.DATE_STR, %REF(9), DATE_BUF ([0J); 

> 274 0366 4 RETURN; 

; es 0367 3 END; 

> 276 0368 4 IF (.DAY EQL 366) 

: ere 0369 3 THEN 

; 278 0370 4 BEGIN 

, ery 0371 5 IF ((. YEAR MOD 4) NEQ 0) 

; 280 tHe 4 THEN 

> 281 0373 5 BEGIN 

; 282 0374 5 STRSCOPY_R (.DATE_STR, ZREF (9), DATE_BUF [0J); 

; 283 0375 5 RETURN; 

; «284 0376 4 END; 

> «285 0377 3 END; 

; 286 0378 3 

: 287 0379 3 !+ ; : : 
; 288 0380 3 ! Compute the binary time corresponding to the base date, which is 
; 289 0381 3 ! 00-JAN-1970 plus the day number modulo 1000. 

> 290 0382 3 !- 

3 629) 0383 DATE_BUF [0] = %C°0'; 

, 2 0384 DATE_BUF (1) = %C'1'; 

: 2 0385 DATE_BUF $3 = %C'-'; 

: 294 0386 DATE _BUF (3) = XC'U'; 

: 295 0387 DATE_BUF (4) = ZC‘A'; 

; 296 0388 DATE_BUF (5) = XC'N'; 

: 97 0389 DATE_BUF § = £C°-'; 

3; 298 0390 DATE—BUF = ((,YEAR/1000) + %C'0"); 

: 99 0391 DATE_BUF 3 = (((,YEAR/100) MOD 10) + %C‘O"); 

é 00 $454 DATE _BUF = (((,YEAR/10) MOD 10) + %C‘O'); 

; 01 039 DATE_BUF [10] = ((.YEAR MOD 10) + %C'0'); 

: 0394 DATE-BUF [11] = xc* °; 

; 3 0395 DATE_BUF 1 = 3 oe 

3 304 B398 DATE_BUF [135] = XC'0'; 

; 305 8 9 DATE _BUF [14] = 2C':'; 

; 306 $08 DATE BUF [15] = 3h 

; 307 39 DATE_BUF 1 = 27C°0'; 

: 308 400 DATE _BUF [17] = &C':'; 

; 309 401 DATE ~BUF 18 = a 

: 310 0402 DATE_BUF [19] = 2C°0'; 
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14 
i Add the delta tim 


_ with quadword ari 


SASCTIM (TIMBUF 


RB string dd-Mmm-yy 


DATE_BUF (7) = 
DATE_BUF (8) = 


IF (.DATE_BUF C 
DATE _BUF (4) 
Rt 

R (.DA 


e@ to the base time. 


i since the delta time is kept in negative format. 


thmetic. 


.DATE_BUF (9); 
-DATE~BUF (103; 


0] EQL % 
_ BUF $4] 4 $i 


DATE BUF 
TE_STR, REF 13, 


en 


ou 
ovo 


16 is 1984 00:1 
eo- 
14-Sep-1984 90: 75 

DATE_BUF [20] = %C'.'; 

DATE_BUF [21] = x¢°6 ae 

DATE_BUF ¢ = ac of 
* DATE_BUF Stet 
- Convert that to absolute system time format, which is a 64-bit integer. 
" DATE_DESC (DSC$w -LENGTH] = 24 

DATE_DESC [DSC$B-DTY ped = “DS CK _DTYPE_T; 

DATE_DESC CDSCS$B_CLASS] = DSCSK-CLAS 

DATE DESC CDSCSA_POINTER] = DATE_BUF 
a SBINTIM (TIMBUF = DATE_DESC, TIMADR = Q_BASE_DATE) 
i¢ 
i Now convert the specified number of days into a system-format 
i. delta time. 

DAY_BUF [0] = %C'0'; 

DAY_BUF 3 = (((.DAYNO = 1)/100) MOD 10) + %C'0O'; 

DAY_BUF é = (((.DAYNO = 1)/10) MOD 10) + %C'0'; 

gay BUF J = (, DAYNO | - 1) MOD 10) + %C'0'; 

DSC$W_LENGTH) = 4; 
DAY ~DESt DSC$B_ pene = DSCS$K_DTYPE_T; 
DSC$B_CLASS) = DSCS$K-CLASS'S; 
Eee DSCS$A_POINTER] = DAY BUF (0); 
DAYeDES (TIMBUF~= DAY_DESC, TIMADR = Q_DELTA_DAYS); 


This must be done with a subtract 


Q_FINAL_DATE); 


Site BUF (0)); 


Also, it must be done 


LIBSSUBX (Q_BASE_DATE, Q_DELTA_DAYS, Q_FINAL_DATE, %REF (2)); 
i Now reconvert the system date to 2 readable date. 
= DATE_DESC, TIMADR = 
i Proceed as above to suppress the century and return the nine-character 


%C' ') THEN DATE_BUF [OJ = %C'0'; 


! end of BASSDATE_T 


- TITLE 
- IDENT 
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BASRTL.SRCJBASDATETI. : 2:1 


OP, " BASSSST 


BSST 
RSCOPY R op 

$$$! BASS _ARGOUTBOU 
BASSK lene TS$"FATINTERR 
SYSSASCTIM, gySSBINTIM 


-BASSCODE,NOWRT, SHR, PIC,2 


BASSDATE_T, Save R2,R3,R4,R5,R6 
SYSSASCTIM, 

SYSSBINTIM, RS 

=72(SP), SP 

AYNO, R4 


#17694731, DATE_DESC 
ar} BUF, DATE_BESC+4 


DATE DESC 


#4, SYSSASCTIM 
DATE -BUF+9, DATE_BUF +7 
DATE-BUF, #32 


BUF 
fied. DATE_BUF +5 
E_BUF 


#1479356464, DATE_BUF 
gpgee7st Os, DATE_BuF +4 
#48, E BUF+8 ~ 

# -(SP) 
wR, me DAY, DAY 
#1 eo RG e R 

1970(R2), YEAR 
R4 
4$ 

$ 
DAY, #366 


- YEAR, #0 


(SP) 
* (SP)+, RO, 


44475696, DATE_BUF 
033, DATE_BUF+S 
DATE xu F+6 
60, YEAR, RO 
ko’ DATE BUF +7 
#106 YEAR, R 


BVRVBVVaewwDeBVvworn~ 
PH FN ROL HO 


#1, RO, #6, -(SP) 
ae (§p)+, RO, RO 
RO, DATE_BuUF +9 


fH i 
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BASSDATE_TIME 16-Sep-1984 00:17:59 AX-11 Bliss-32 V4.0-74 Page 10 
(BASSE 12-808- 1382 90:17:28 EBASRTL Ske BASDATETI.832;1 - 
7 0 52 1 7A 000E4 EMUL #1, YEAR, #0, =(SP) : 0393 
gf 5 3 A ‘8 SOEs EDIvV. #106, (SP5+, RO, RO : 
| 3A OA 0 8 OEE ADDB3 #48. RO, DATE BUF+10 : 
38 AE 3A 030 F D OOF MOVL #9 $25 37 , DATE_BUF+11 + 0394 
F AE 303A F DO 00 Fe MOVL  #809119792. DATE~BUF +15 + 0398 
43 AE 30302€ F p 019 MOVL #80846392 DATE ~BUF +19 + 0402 
+ Te 0 10B MOVE #32, DATE_BUF+2 > 0406 
38 AE 010E001 F po 108 MOVL  #176947447 DATE_DESC + 0410 
C 30 AE 9E 00117 MOVAB DATE BUF, DATE_DESC+4 + 0413 
18 AE OF O01IC PUSHAB Q BASE DATE + 0414 
2C «AE OF OO1TF PUSHAB DATE_DESC : 
65 9 FB 4 é CALLS #2, SYSSBINTIM : 
04 Ar 90 001 OVB #48, DAY_BUF + 0420. 
3 FF AG 9 0129 MOV -1(R4), RO + 0421 

52 0 00000064 8F ¢ 001 D DIVL3 #100, RO, R2 : 

7E 00 52 01 7A 00135 EMUL 1, R2, #0, =(SP) : 
52 52 gE OA 7B 001 A DIV. #16, (§P)+; R2, R2 : 
0S AE 5 30 81 0013F ADDB3 #48, R2, DAY_BUF+1 : 

38 50 OA (7 00144 DIVL3 #10. RO. R2 + 0422 
7E 0 52 01 7A 00148 MUL R2, #0, -(SP) : | 
52 52 BE OA 7B 0014D EDIV. #16, (SP)+. R2, R2 ; 

06 AE 5 30 81 00152 ADDB3 #48, R2, DAY_BUF+ : 
7E 00 50 01 7a 0015 EMUL 1, RO, #0, =(SP) + 0423 
50 50 BE OA 7B 0015¢ EDIV. #16, (SP)+. RO, RO F | 
07 AE 50 30 81 00161 ADDB3 #48. RO, DAY_BUF+3 : 
20 AE 010E0004 BF DO 00166 MOVL #17694734, DAY DESC + 0424 
24 OA 04 AE 9E at MOVAB_ DAY _BUF, DAY_DESC+4 : 0427 
10 AE 9F 0017 PUSHAB Q_DELTA_DAYS 3 0428 
24 AE 9F 00176 PUSHAB Y_DEST 3 | 
65 02 FB 00179 CALLS a2. SYSSBINTIM ; | 
6E 02 pO 0017¢ MOVL * (SP) > 0434. 
SE DD 0017F PUSHL ; | 
Oc AE 9F 00181 PUSHAB Q_FINAL_DATE : 
18 AE 9F 00184 PUSHAB Q~DELTA-DAYS ; 
24 AE 9F 00187 PUSHAB Q7~BASE BATE ; | 
000000006 00 04 FB 0018A CALLS #%, LIBSSUBX : 
7E 04 00191 CLRL = (§P) + 0438 
OC AE 9F 00193 PUSHAB Q_FINAL_DATE ; | 
30 AE 9F 00196 PUSHAB DATE_DESC ; 
7E 04 00199 CLRL = = (SP F 
66 04 FB 0019B CALLS #4, SYSSASCTIM ; | 
37 AE 39 AE BO 00196 MOVW DATE_BUF+9, DATE_BUF+7 > 0443 
20 30 AE 91 OO1A CMPB «DATE ~BUF, #32 + 0446 
4 If OIA BNEQ : 
30 AE 0 90 001A9 MOVB #48, DATE_BUF : 
4 AE 2020 BF AB O1AD $: BISW2 #8224, DATE_BUF+S : 0449 
0 AE 9F 00183 7$: PUSHAB DATE_BUF : 0450 
04 AE 09 DO 00186 8$: MOVL #9, &(SP) : 
04 AE 9F OO1BA PUSHAB 4(SP) ; 
04 AC 0D 001BD PUSHL DATE _STR ; 
000000006 00 03 FB pores CALLS #3, STRSCOPY_R ; 
04 001¢7 RET > 0453. 


; Routine Size: 456 bytes, Routine Base: _BASSCODE + 0000 
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| PASSPATE TIRE 18-Sep-1984 90:17:39 ert BlLiss-32 eet aS Page 11 
1-01 14-Sep-1984 11:54:49 BASRTL.SRCJBASDATETI.8652;1 (4) 
H 455 1 GLOBAL ROUTINE BASSTIME_T ( ! Perform a TIMES function 
; 4 § 1 TIM ° ' Resulting string 

: ty 1 TIMENO ! The time number, as defined below 
; 4 8 1 ) : NOVALUE = 

3 459 1 

; Bree 1 +4 

; ree : FUNCTIONAL DESCRIPTION: 

8 aces ’ Perform a TIMES function, as follows: 

; 0465 1! TIMES(O%) returns the current time of day in the form hh:mm 

3 0466 1! TIMES(n%) returns the time corresponding to time number 

$ e994 : n, where mn is the number of minutes before midnight. 

; 0469 1 ! FORMAL PARAMETERS: 

3 0470 1! : 

; 0471 1! TIME STR.wt.d The result string 

: Ree } TIMENO.rl.v The time number, or zero. 

3 0474 1 ! IMPLICIT INPUTS: 

: 0475 1! ; 

: beo$ : The system date and time, if TIMENO = 0. 

3 0478 1°! IMPLICIT OUTPUTS: 

g 0479 1! 

3 0480 1! NONE 

s 0481 1! 

: 048 1 ! ROUTINE VALUE: 

3 0483 1 ! COMPLETION CODES: 

; 0484 1! 

; 0485 1! NONE 

3 0486 1! 

j 0487 1 ! SIDE EFFECTS: 

3 0488 1! 

3 0489 1! NONE 

3 0490 1! 

3 0491 1 !-- 

$ 0492 1 

3 0493 2 BEGIN 

: 0494 § ! : 

3 0495 ! If the time number is zero, get the system day and time, and reformat 

3 Re98 2 ! it to conform to BASIC-PLUS-2's standard. 

3 049 !- 

; 0498 

3 0499 IF (.TIMENO EQL 0) 

3 0500 THEN 

3; 410 0501 BEGIN 

: 411 beng 

: tig 050 LOCAL 

: 41 0504 TIME_DESC : BLOCK fs BYTE) 

> 414 0505 TIME"BUF : VECTOR £24, BYTE), 

: 415 0506 HOURS; 

5 £16 0507 

3; 41 $454 '¢ . i é 
3 $13 44 : Build the descriptor for the string which will contain today's date and time. 
3; 420 bai TIME_DESC CDSC$W_LENGTH] = 11; 


}};=: i... =r rt nnn n ncn eernnnnnnnnnnnennnensm snes menssmeesseemsessmeeesmeeemmmememmmet 


H 12 

BASSDATE_TIME 16-Sep-1984 00:17:59 AX-11 Bliss-32 V4.0-74 Page 12 
bet 19-808- 138 11:54:49 BASRTL.SRC IBASDATETI .B 231 . (4) 

> 421 baie TIME_DESC pe cse Drees = DSCSK_DTYPE_T; 

3 «4 ¢ 051 TIME DESC LDSCSB_CLASS] = DSCSK_CLASS_S; 

3 : ? bale TIME_DESC CDSCSA_POINTER] = TIME_BUF; 

; 425 R218 + 

3 : $ bets get the current time 

: 428 0519 SASCTIM ( TIMBUF = TIME_DESC, CVTFLG = 1 ); 

: 429 0520 

; 430 0521 te 

s 635) 05 § ! Convert from 24-hour time to AM/PM. We do this by appending ‘' AM’’ to the 

; +3 05 ! time part of the spring and then correcting it if the hours are between 

3 cer Be : 12 and 25. There is also a special test for 0 hours. 

> 4435 0526 TIME_BUF (5) = XC° °; 

> 436 0527 TIME-BUF [6] = XC°A';: 

: 437 0528 TIME BUF C7) = XC'M': 

3 rt F344 HOURS = ((.TIME_BUF fo] = %C'0')#10) + (.TIME_BUF C1] = %C'0"); 

; 440 0531 3 SELECTONE .HOURS OF 

> 441 b23§ 3 SET 

> 442 0533 3 

> 443 0534 3 (0) : : 

> 444 0535 4 BEGIN ! It is AM, but we must change zero hours to 12. 

> 445 0536 4 TIME_BUF [0] = X%C'1'; 

3: 446 0537 4 TIME_BUF C1) = %C'2'; 

> 447 0538 3 END; 

: 448 0539 3 

3 4449 0540 3 {1 T0 11) : : 

; 450 0541 4 BEGIN ! It is AM, nothing special to do here. 

3 «451 Bete 4 0 

3; 45 05435 3 END; 

3 4 0544 3 

3 4454 0545 3 [12] 

; 4455 0546 4 EGIN ' It is PM, but the hour must not be corrected. 

; 456 0547 4 TIME_BUF [6] = XC'P'; 

3 457 0548 3 END; 

3; 458 0549 ; 

3; 459 0550 (13 TO 23) : , 

; 460 0551 4 BEGIN ' It is PM, and the hour must be corrected. 

: 461 8226 4 HOURS = .HOURS = 12; 

; 46 0553 4 TIME_BUF [OJ = (.HOURS/10) + = 

; 46 0554 4 TIME~BUF (1) = (.HOURS MOD 10) + %C'0'; 

: 464 8232 4 TIME_BUF £6) = ZC'P* 

; 465 556 ; 

: 466 0557 

; 467 0558 COTHERWISE) : 

: 468 0559 4 ! The time is quite unreasonable. Give a fatal error. 

: 469 0560 4 LIBSSTOP (OTSS_FATINTERR); 

; 470 561 END; 

3 «471 206 TES; 

2 67 56 

: 47 564 '¢ 

; rth: 33 : Return the string to the user. 

: 476 265 STRSCOPY_R (.TIME_STR, ZREF (8), TIME_BUF ([0)); 

: 477 0568 RETURN; 
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; 478 268 END; 

; 479 570 

; 480 571 '¢ . 

: 481 276 ! Come here if the time argument is not zero. We must compute the 
3 rt Bat? time corresponding to TIMENO minutes before midnight. 
> 484 0575 BEGIN 

; 485 0576 

; 486 0577 LOCAL 

3; 487 0578 HOURS 

; 488 0579 MINUTES 

: 489 0580 TIME_BUF : VECTOR (8, BYTE), 
; 490 0581 AMPM; 

: 491 Fe '¢ 

; 49 058 ' Allow orqunense in the range of 0 to 1440 (24 hrs 
; 49 0584 ! before midnight) only. 

3; 494 0585 t= 

: 495 0586 

; 4% 0587 3 SELECTONE (.TIMENO) OF 

3: 497 0588 3 SET 

; 498 0589 ; 

3; 499 0590 {CO TO 1440) : 

: 500 0591 3 $ 

: 501 8236 4 

; 502 0593 3 COTHERWISE) : 

; 503 0594 3 BASSSSTOP (BASSK_ARGOUTBOU) ; 
: 504 0595 ; TES; 

; 505 0596 

3 306 0597 3 MINUTES = (24%60) - .TIMENO; 

s 507 0598 3 HOURS = .MINUTES/60; 

; 508 0599 3 MINUTES = .MINUTES = (.HOURS*60); 
; 509 0600 3 AMPM = ZC‘A'; 

; 510 0601 3 

3; 6511 Boe 3 SELECTONE (.HOURS) OF 

; 512 0603 3 SET 

3s $15 0604 3 

> 514 0605 3 (0) : 

3; 515 0606 ; HOURS = 12; 

s 5 0607 

3; 517 0608 3 {1 7011): 

s Si 0609 3 3 

: 519 0610 ; 

3 339 gett a ac*pe 

s 328 ak ; 

. oe B6i% {13 TO 23) : 

3; 524 615 4 BEGIN 

s 525 3618 4 HOURS = .HOURS = 12; 

: 526 617 4 AMPM = ZC'P'; 

: 44 0618 $ 

: 528 0619 

Z 267 0620 COTHERWISE) : 

; 530 0621 LIBSSTOP (OTSS_FATINTERR); 
: 531 36 ; TES; 

3 236 

; 33 36 4 ¢ : ; 

s 536 5 ' Now store the time in the time buffer. 


| BASSDATE_TIME 
wit 
: 5 06 !- 
$ H 6 6 $ 
s. Sar 8 
: 33 $86 
; 540 be 1 
> 541 06 ¢ 
3 2¢6 06 
s 36 0634 
3 544 0635 ! 
OBE 
>; 547 at 
; 548 0639 
; 549 0640 
s $30 0641 1 


, 


‘ 


NOUS WIN O 


OAPOME 
ee « ee 2 


Pat » tanta 


32 x Te > 


wee 
oO 
- 


14 
Convey the buffer to the user's string. 


-135-1986 00: 
=3007 1382 99: 


STRSCOPY_R (.TIME_STR, ZREF (8), TIME_BUF [0)); 
RETURN; 


000000006 
09 


0B 


04 


56 00000000G 00 
55 00000000G 8F 
af 24 
5 08 AC 
03 

oe 

AE 010€0008 i 
AE 04 AE 
01 

7E 

24 AE 

7E 

00 04 
AE 4120 SF 
AE 4D 8F 
50 04 AE 
50 OA 
51 05 AE 
50 51 
50 FDFO co 
08 

AE 3231 ef 
D 

05 

0B 20 
6 

0c 50 
€2 

0D 0 
5 ‘a 
50 i 
51 0 


[—J 
o 


COON 9 9 9 9 | | © “ON OOOO "SO OCT OOWGD FO ON 


NINE OWI 1S 1" OONIM OS F&F POOL M®LOMO—-"WOwvomn 
SOCVOODBDOOOOOOOOSOOSOOOOSOOSOOSOOOOSOOCOoOOoOO 


SOOoooooco 


S 


1 
254: 
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BASRTL. 


! end of BASSTIME_T 


1$: MOVL 


2$: BLEQ 


BASSTIME_T, Save R2,R3,R4,R5,R6 
LIBSSTOP, 
re FATINTERR, R5 


TIMENO, R3 

1$ 

7$ 

#17694731, TIME_DESC 
TIME BUF, TIME_BESC+4 
-(SP) 

TIME _DESC 

(SP) 

#4, SYSSASCTIM 

#16672, TIME BUF+S 


77, TIME_BUF+7 
IME _BUF 


TIME BUF+1, R1 
-528(RO), HOURS 


#12849, TIME_BUF 


2-2 
— 
oO 


¢ 

HOURS, #11 
HOURS, #12 
HOURS, #13 
HOURS, #23 
619: HOURS 


#10, HOURS, R1 
#48, R1, TIME_BUF 


05 


1C¢ 


1D 


1F 


20 


50 
AE 


OA 


000005A0 


1E 


000000006 


PMNONI S VICONUIUIO® 
OMWOWMOMNMONG 


> >> 
m mmm 


8H Medes 


4) 


50 


4D 
1¢ 


4 
4 


OP POP DWVUMPWOOWOWWWNOOWOOMODOOMO MOU NON OO MDM O DWOMUO O FP OMOWOWOO 
WOMOOM™ LOOPY "OF FOF (OF S$ UWMNAM OMIM NG NINMNLE OVUM NOO OW *WOMM—- MI "OPY— 


e 
R 


K 12 
16-Se 
14-Se 

7A 0008 
sf a 
HH 494 4$: 
11 9 
DD 94 5$: 
FB 98 
3 OO9E 6$: 
1 QOOA1 
19 OOOA4 7$: 
9S SooAD 
r aoa? 8$: 
c3 G08, 9$: 
C7? 000C2 
C5 000C6 
C2 OOOCA 
9A 000CD 
DS 00001 
12 00003 
DO 00005 
11 00008 
15 OOODA 10$: 
D1 O00DC 
15 OOODF 
Di OOOE1 11$: 
13 O00E4 
D1 OO0E6 
19 OO0E9 
D1 OOOEB 
(3 So0r6 
ae 
Pe OOOFR to 
A OOOFE 14$: 
i} BO 10s 
A 0010 
7B gains 
81 00111 
8 Bi 
ai Gott 
A 001 
AF 00190 
eH 01 2 
90 001 
Hie 
0 Bee 15$: 
F 0014 
DD 00149 
fB b186 
04 0015 


# 


rete Bliss-32 HP rts 
BASRTL.SRCJBASDATETI .B852;1 


HOURS, . -(SP) 


AS (SP) 
#48. 
#80. 


+, RO, RO 
RO, TIME BUF +1 
TIME_BUF 76 


LIBSSTOP 
-BUF 


MINUTES 
HOURS 


0641 


—" 


fT 
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3; Routine Size: 340 bytes, Routine Base: _BASSCODE + 01C8 
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BASED 1e-8ep-1984 9 Ui: 49 BASRTL.SRCJBAS ont or 882: 1 4 (5) 


; ee 0643 1 GLOBAL ROUTINE BASSTIME_F ( ! Perform a TIME function 
$ 4 pete 1 TYPE ! The type of time requested 
i Be pis 

; vs pee? 1 44 

s 338 0648 1 ! FUNCTIONAL DESCRIPTION: 

: 559 0649 1! 

; 560 0650 1! Perform a TIME function, as follows: 

3 3) 0651 1! 

: 206 063¢ 1! TIME (9%) a the current time of day 

; 0655 1! econds singe midnight 

: 20% 0654 1! TIME (1%) returns the CPU time used by the current job in 
; 565 0655 1! hs of a second hes iy second units) 

> 566 8028 1! TIME (23) poturne the connect time for the current i in minutes 
3 eh Beer ! } TIME(3%) and TIME(4%) are not implemented on VAX/VMS. 

> 569 0659 1! Any other value of the argument is undefined. 

; 570 0660 1! 

g S72) 0661 1 ! FORMAL PARAMETERS: 

$ are 0662 1! 

s 37 0663 1! TYPE.rl.v The type of time requested, see above. 

> «574 0664 1! 

3 Of9 0665 1 ! IMPLICIT INPUTS: 

3 37 0666 1 ! ee 
3 2 Boer : The system date and time, and other system timing statistics 
3 275 0669 1 ! IMPLICIT OUTPUTS: 

; 580 0670 1! 

; 581 0671 1! NONE 

> 582 B67¢ 1! 

s 385 0673 1 ! ROUTINE VALUE: 

3; «584 0674 1 ! COMPLETION CODES: 

; 585 0675 1! : 

; 586 0676 1! The requested type of time, as a floating point number. 
; 587 0677 1! 

; 588 0678 1 ! SIDE EFFECTS: 

; 589 0679 1! 

; 590 0680 1! NONE 

; 591 0681 1 ! 

: 592 0682 1 !-- 

3 595 0683 1 

3: 594 0684 2 BEGIN 

; 597 0639 CVTLF; 

3s 598 06R8 

; 599 0689 + 

; 600 0690 i Compute the requested time value, based on the input argument. 
: 601 0691 ie 

; 60 69 

; 60 69 CASE (. TYPE) FROM 0 TO 4 OF 

3; 604 694 SET 

; 605 695 

s O06 69 (0) : 

: 60 69 BEGIN 

; 608 0698 

3; 609 0699 LOCAL 


BASSDATE_TIME 

with 

; 610 07 

; 611 Oro} 
3 olg ai) 
; «61 070 
: 614 0704 
; 615 B70? 
; 616 106 
3; 617 070 
; 618 0708 
3; 619 0709 
; 620 0710 
; 621 14h 
3; 6 ¢ ar 
3; ¢ 071 
: 624 0714 
3; 625 0715 
; 626 0716 
8 ée7 0717 
; 628 0718 
3 og? 0719 
; 630 0720 
> 631 0721 
3; 632 Ores 
3; 633 072 
> 634 0724 
3; 635 0725 
> 636 0726 
3s 637 0727 
; 638 0728 
; 639 Ore? 
3; 640 0730 
3; 641 0731 
3 642 Oras 
3 643 073 
3 644 0734 
3: 645 0735 
3 646 0736 
3 647 0737 
: 648 0738 
3 649 0739 
; 650 0740 
: 651 0741 
3; 652 Ores 
3; 653 074 
3 654 0744 
3; 655 0745 
3; 656 0746 
: 657 0747 
: 658 0748 
3; 659 0749 
; 660 0750 
3; 661 0751 
: 66 O736 
: 66 O72 
: 664 754 
: 665 0755 
3; 666 0756 


- 
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12-8 08- 1384 11:54:49 YOASRTLe SRESBASDATEST 6 2:1 
TIME_DESC : BLOCK BYTE] 
HME BUF : VECTOR Ss, BYTed, 
HOURS 
MINUTES, 
SECONDS, 
RESULT; 
'¢ 
a Set up the buffer descriptor 
‘ TIME_DESC CDSC$W_LENGTH] = 11; 
TIME-DESC CDSC$B~ =pTve vee] = DSC$K_DTYPE_T; 
TIME-DESC CDSC$B-CLASSJ = DSCS$K-CLASS-S; 
" TIME-DESC CDSCSA~ SH TATER ] = TIME_BUF; 
i j_Satrect the current time from the system. 
SASCTIM ( TIMBUF = TIME_DESC, CVTFLG = 1 ); 


1+ 
: Extract from the character string the number of seconds since midnight. 


aTutes a ((. bes | BUF C0) _=- %C'0' pero} + ee), BUF C1) = %C'0"); 


TIME BUF £3] - 2C'0')#10) + (. TIME BUF [4] = XC 19333 
ss SECONDS = tC “TIME “BUF [6] = %C'0")*10) + C TIME ~BuF [7] - tc 0"); 
i: Return the number of seconds since midnight, as a floating point number. 
5 CVTLF CREF (.SECONDS + (.MINUTES*60) + (.HOURS*60*60)), RESULT); 
RETURN ¢ .RESULT); 
C1) : 
BEGIN 
LOCAL 
GETJPI_LIST : BLOCK (16, BYTE), 
U_TIME : VOLATILE, 
ESULT; 
te 
: Fill in the GETJPI List 
GETUPI_LIST CO, 0, 16. 0) = 4; ! Buffer Length 
GETIPI“LIST C2, 0, 16, v2 = JPI$_CPUIIM; ! Get CPU time 
GETJPI-LIST (4, 0} = FCPUL 
GETJP!I_LIST C8 HBPVAL: 0 0] = 0; !"Don' t yee Length 
is GETJPI“LIST C12, *%, BPVAL, 0) = 6; § That's all 
t Get the information from the system. 
BEGIN 
LOCAL 
EVENT_FLAG, 
STATUS; 
STATUS = LIBSGET_EF (EVENT_FLAG); 


-—_—--— 
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1-015 14- ety yi 00: 4:49 YOXSRTL’ SRE MBARDATEST 65221 
; 667 0737 4 IF (NOT .STATUS) THEN LIBSSTOP (.STATUS); 
: 669 0799 4 STATUS = $GETJPI (EFN = .EVENT_FLAG, ITMLST = GETJPI_LIST); 
; 670 9760 é IF (NOT .STATUS) THEN LIBSSTOP~(.STATUS); 
: 67 076¢ 4 STATUS = LIBSFREE_EF (EVENT FLAG); 
: 67 0763 4 IF (NOT .STATUS) THEN LIB$S TOP (.$TATUS); 
> 674 0764 4 
3; 675 0765 END; 
: 676 0766 1+ see ee 
; 344 thE Convert the 10-millisecond units into 100-millisecond units. 
: 679 0769 ; CVTLF (XREF (.L_CPU_TIME/10), RESULT); 
; 680 0770 1+ 
3 on} 14! 3 a Return the CPU time in 100-millisecond units as a floating point number 
: 683 O78 : RETURN (.RESULT); 
> 684 0774 : END; 
> 685 0775 
: 686 0776 2 
> 687 0777 3 BEGIN 
; 688 0778 3 
: 689 0779 3 LOCAL 
: 690 0780 3 GETJPI_LIST : BLOCK (16, BYTE), 
> 691 0781 3 Q_CONN-TIME : VECTOR [24 
> 692 0784 g Q"LOGIN_TIME : VECTOR C24, 
> 693 078 3 Q-NOW : VECTOR (2), 
> 694 0784 ULT, 
: 695 0785 3 TIME_DESC : BLOCK C8, BYTE) 
> 696 0786 3 TIAE-BUF : VECTOR C17, BYTES, 
: 697 0787 3 YS 
: 698 0788 3 uRSs, 
: 699 0789 3 MINUTES, 
: 700 0790 3 STATUS, 
g TO 0791 3 EVENT_FLAG; 
: 702 079¢ 3 
: 703 0793 3 !+ 
: 704 0794 ! Fill in the GETJPI List. 
: 705 0795 ie 
: 706 0796 GETJPI_LIST CO, 0. 16, 0] = 8; ! Buffer length _ 
: 707 0797 3 GETJPILIST £2. 0. 16, 0) = JPIS_LOGINTIM; ! Login time 
: 708 0798 3 GETUPI LIST 4, 0, XBPVAL, 0) = G_LOGIN_TIME; 
: 709 0799 3 GET IPT LST 8, 0, ZBPVAL, 0]. = 0; ! Don't return Length 
> 710 0 00 3 GETIJPIZLIST £12, 6, XBPVAL, 032 = 6; } That's all 
s 711 01 
: 712 080 te 
3 713 080 i Allocate an event flag. 
: 716 0804 ie 
: 715 0805 STATUS = LIBSGET_EF (EVENT FLAG); 
; 16 0806 , IF (NOT .STATUS) THEN LIBSSTOP (.STATUS); 
2 + 
3 8 ti i _Get the information from the system. 
: 720 0810 STATUS = SGETJPI (EFN = .EVENT_FLAG, ITMLST = GETJPI_LIST); 
> 721 811 IF (NOT .STATUS) THEN LIBSSTOP CoSTATU S$); 
: ree 0812 
: Te 081 '¢ 


--s_:  - -  -- > = 


| a et 
1-01 

> 724 0814 
3; feo 0815 
:; 726 9818 
s fer 081 
; 728 0818 
; 168 0819 
; co 0820 
s 3) 0821 
3; 9 08 ¢ 
S fe0 08 

> 734 0824 
3 io bBs2 
; i 0826 
3 6f30 0827 
; im 0828 
s iv +t} 
; 740 0830 
> 74) 0831 
; rs 0832 
eS 08335 
> 744 0834 
3; 745 0835 
3; 746 0836 
; 747 0837 
; 748 0838 
; 749 0839 
: 750 0840 
3 «651 0841 
3; fe pare 
; 753 084 
> 754 0844 
$ 99 0845 
> 756 0846 
, for 0847 
; 758 0848 
3 fF 0849 
: 760 0850 
: 761 0851 
3; 762 Oa26 
; 763 085 
: 764 0854 
3; 765 0855 
; 766 0856 
3 767 0857 
; 768 0858 
: 769 0859 
; 770 0860 
, i 0861 
; FF pes 
; re 086 
3; 774 0864 
3; 77 0865 
: 776 086 
s 77 86 
: 778 868 
3; 779 0869 
; 780 0870 
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Deallocate the event flag. 


STATUS = LIBSFREE EF a 


ENT_FLAG); 
IF (NOT .STATUS) THEN LIBS$STOP ei ratus): 


'e 
Now get the current time from the system. 


' SGETTIM (TIMADR = Q_NOW); 
+ 


i Subtract the two to get the execution time. This must be done 
a using quadword arithmetic. 


‘s LIBSSUBX (Q_LOGIN_TIME, Q_NOW, Q_CONN_TIME, REF (2)); 
i Use the SASCTIM system service to convert the 64-bit connect time 
_to a number of days, hours, minutes and seconds. 


$B_DTYPE] 


nnn 


INCR COUNTER FROM 0 TO 3 DO 


'¢ 
z Convert the string into a number of minutes. 
DAYS = ((. TIME BUF [0] ~ %C°0")*1000) + ! 


((.TIME_BUF CiJ = %C'0")#100) 
CC TIRE BUF = FCO") #10) + 


(. TIME _BUF - %€°0'); 
HOURS = ((.TIME BUF [5] = 2C'0')#10) + ey BUF [6] = %C°0'): 
MINUTES = ((. TIRE BUF C8] = %C'O")*10) + (.TIME_BUF [9] - %C°0"); 


t+ 
Convert the total number of minutes to floating point. 


CVTLF (ZREF (.MINUTES + (.HOURS*60) + (.DAYS*24*60)), RESULT); 
+ 

i Return the connect time in minutes as a floating point number. 

: RETURN (.RESULT); 

END; 


(3, 4]: 
'¢ 


' These functions are not implemented. They returned the kilo-core 
' ticks and device time in RSTS. For compatability, return zero. 


RETURN (0); 


IF (.TIME_BUF C.COUNTER] EQL %C' *) THEN TIME_BUF C.COUNTER) = %C'0'; 


OT B9251 


ofan v4. 
BASRTL.SRCJBASDATETI 


row 


OOoooCooooooooo 
FwN-OOVONOUS Wh 


14 


759 AX-1 
749 


1 Bli 
BASRTL 


i Other values have never been implemented in anything we must be 


compatable with, so give an error message. 
| - BASSSSTOP (BAS$K_NOTIMP) ; 


14 
! In the unlikely event that the above CASE expression falls through, 


return a zero. 


oS 
oO 
NOVMIVIVIVIV 
WDomeunoe~nvoco 
o-—- > PoOoOooo 
AOOrmMmococoe 
awoooooon" 
THMMMMMMmMe 
COoOoQooooo°oeoo 


oo 
—o 


7E 
000000006 00 


oooo 


19.09 09 09 SII NI NIA AAA MMIII 
PDODNOS ODEN FAWO YS NWN & 


SOOCOOCOOOOOOOOOOoOOSOoOOoOSoSoOo 
COOOOCGCOOCOOoOoOoooO 


PUPP SVP SVSVSTSI SSIS STOP 
OOOO — | 0] |SNONVONNM'! 
WOOOMODOOOOODOOOoOOOT" 
MmMoOorslrmnortlPrmnortr>rw 


! end of BASSTIME_F 


SYSSGETJPI, SYSSGETTIM 


BASSTIME_F, sexe R2,R3,R4,R5,R6,R7,R8 


LIBSFREE-EF, R 
SYS$GETJPI, R7 
LIBSGET EF, R6 
SYSSASCTIM, RS 
LIBSSTOP, 
-80(SP) 

TYPE, #0, #4 
2$-1$,- 
3$-1$.- 
7$-1$.- 
15$-1$,- 

5$-1$ 


1 = 
#BASSK NOTIMP, -(SP) 
#1, BASSS$STOP 


15 
#17694731, TIME , 


T SC 
TIME BUF, TIME_BESC+ 


E 
SC+4 
-(SP) 

TIME DESC 

#4, SYSSASCTIM 
TIME _BUF, R2 


), 
BUF+3, R1 
UF+4, RO 
1), MINUTES 
- RO 


F+6 


88(R2),_ HOURS 


Liss-32 HP els 
SRC JBASDATETI.B32;1 


row 


; 0643 


; 0693 


0722 


0723 


0724 


co 


13 
| BASSDATE_TIME 1h-se -1984 00:17:59 AX-11 Bliss-32 V4.0-74 
1-015 12-8 08- 1 3be 0 54:49 BASRTL SRE IBASDATE ST B92: 1 
51 3c 6¢4 00098 MULL2 #60, R1 
| 29 7041 SF 0098 MOVA 7(9bCONDS)CRII, RO 
= 000690 Bt RE, uLE FahO. we 
| 40 AE 04070004 BF DO 000A9 3$: MOVL #67567620, GETJPI_LIST 
| 44 AE 3¢ = AE.s«O9E:« 00081 MOVAB L_CPU_TIME GETUPT_LIST+4 
48 AE 7C 00086 CLRQ GETJPT_LIST+ 
04 AE 9F 00089 PUSHAB EVENT_FLAG 
| 66 01 FB ponee CALLS #1, LIBSGET_EF 
52 50 D0 OOBF MOVL RO, STATUS 
| 05 2g E 000¢e BLBS §§ STATUS, 4$ 
52 «DD b90¢ PUSHL STATUS 
64 01 FB O00C7 CALLS #1, LIBSSTOP 
E 7C OOOCA 4$ CLRQ 0s = (§P) 
7E 04 000CC CLRL = = (SP) 
4C AE 9F OOOCE PUSHAB GETJPI_LIST 
7E 7C 00001 CLRQ ss = (SP) 
1C AE DD 00003 PUSHL EVENT_FLAG 
67 07 FB 000D6 CALLS #7, SYSS$GETUPI 
52 50 D0 00009 MOVL RO, STATUS 
05 52 €8 000DC BLBS = STATUS, 5$ 
52 DD O00DF PUSHL STATUS 
64 01 FB 000E1 CALLS #1, LIBSSTOP 
04 AE 9F OO0ES S$ PUSHAB EVENT FLAG 
68 01 FB Q00E7 CALLS #1, LIBSFREE_EF 
52 50 DO OOOEA MOVL RO, STATUS 
05 52 £8 OOOED LBS = STATUS, 6$ 
52 DD 000FO PUSHL STATUS 
64 01 FB 000F2 CALLS #1, LIBSSTOP 
50 3c AE OA C7 000FS 6% DIVLS #16, L_CPU_TIME, RO 
0100 31 OOOFA BRW 
40 AE 02060008 8F DO O00FD 7$ MOVL $#33947656, GETJPI_LIST 
44 AE 30 AE 9E 00105 MOVAB Q_LOGIN_TIME, GETJPI_LIST+4 
48 AE 7C OO10A CLRQ GETJPI_Cist+é 
08 AE 9F 0010D PUSHAB EVENT FLAG 
66 01 FB 00110 CALLS #1, LIBSGET_EF 
52 50 pO 00113 MOVL RO, STATUS 
05 52 £8 00116 BLBS STATUS, 8$ 
52 DD 00119 PUSHL STATUS 
64 01 FB 0011B CALLS #1, LIBSSTOP 
7E 7C OO11E 8$ CLRO = = (§P) 
7E D4 00120 CLRL =—-_ = (SP) 
4C AE” OF 0012 PUSHAB GETJPI_LIST 
7E 7C O01¢ CLRQ ss = (SP) 
20 Ag DD 00127 PUSHL EVENT_FLAG 
67 07 FB OO12A CALLS #7, SYSS$GETJPI 
52 50 DO 0012D MOVL RO, STATUS 
05 52 £8 01 0 BLBS STATUS, 9$ 
52 DD 001 : PUSHL STATUS 
64 _ 01 FB 001 CALLS #1, LIBS$STOP 
08 AE OF 91 8 9S PUSHAB EVENT FLAG 
48 gi FB 00138 CALLS #1, LIBSFREE_EF 
32 DO 0013E MOVL RO, STATU 
0 52 £8 00141 BLBS STATUS, 10$ 
3 DD 00144 PUSHL STATU 
64 FB 0146 CALLS #1, LIBSSTOP 
28 AE 9F 00149 10$:  PUSHAB Q NOW 


Pee Se Se Se Se Se Se Se Se Se Se Ge Se Se Se Se Se Ge Fe Ge Se Se Ge Se Se Se Se Se Ge Se Se Be Be Se Se Se Be Se Be Se Se Fe Se Se Se Se Se Be Se Se Be Be Be Be Se Se 


———_---—— Sei ale: 


§ 13 
| BASSDATE_TIME 16-Sep-1984 00: 
7-815 erg e= Re 99:80: 
000000006 00 1 Ff 14 CALLS 
6E oe 68 o158 MOVL 
E DD 001 8 USHL 
C AE 99F Q015 PUSHAB 
0 AE 9F 0015B PUSHAB 
C AE 99F QOO1SE PUSHAB 
00000000G 00 4 FB 00161 CALLS 
20 AE 010E0011 F pO 3198 MOVL 
24 =O OC AE 9E 00170 MOVAB 
7E D4 BI f3 CLRL 
3C AE 9F 0017 PUSHAB 
28 AE YF QOI7A PUSHAB 
7E 04 00170 CLRL 
65 9 FB 0017F CALLS 
0 »d4 00182 CLRL 
20 OC AESO 91 00184 118: CMPB 
93 12 00189 BNEQ 
OC AE4O 0 s 00188 MOVB 
FO 50 03 £3 00190 12$: AOBLEQ 
50 0c AE 9A 00194 MOVZBL 
50 O000003E8 8F C4 00198 ULL2 
51 OD AE 9A 0019F MOVZBL 
51 00000064 8F C4 001A3 ULL 
50 51 CO OO1AA ADDL 
51 OE AE 9A OO1AD MOVZBL 
51 OA C4 00181 MULL 
52 50 51 C¢1 001B4 ADDL 
50 OF AE 9A 00188 MOVZBL 
52 50 cO 001BC ADDL2 
52 FFFF2FBO £2 9E 001BF MOVAB 
51 11 AE 9A 001C6 MOVZBL 
51 OA C4& OQOICA ULL2 
50 12 AE 9A 001CD MOVZBL 
51 50 CO 001D1 ADDL2 
51 FDFO C1 9E 00104 OVAB 
50 14 AE 9A 00109 MOVZBL 
50 OA C4 001DD ULL2 
53 15 AE 9A OO1E0 MOVZBL 
50 53 CO OO1E4 ADDL2 
50 FDF1 g0 9E OO1E7 OVAB 
51 C C4 OOIEC MULL2 
50 7041 9E OOTEF MOV 
52 000005A0 8F C4 OO1F3 MULL 
50 52 CO OOIFA 13$ ADDL 
51 50 4E OO1FD 14% CVTLF 
50 51 pO 00200 MOVL 
04 00203 RET 
50 D4 00204 15$ CLRL 
04 00206 RET 
; Routine Size: 519 bytes, Routine Base: _BASSCODE + 031C 


; re 0885 1 


7: 


rete Bliss-32 eet a8 
BASRTL.SRC JBASDATETI.852;1 


YSSGETTIM 
SP) 


1 OE UF CCOUNTERD, #32 
8, TIME BUFCCOUNTER] 
UNTER, 11$ 


RO 


UF +6, RO 


1), HOURS 
F+8, RO 


UF+9, R3 

0), MINUTES 

NUTES)CR1), RO 
R2 


DBBRBRizi Dos! Do48B-4 | DW48w24T242 4 Bs 


RO 


0853 


0857 


0861 
0884 


13 
BASSDATE_TIME 18-se -1984 00:17:59 AX-11 Bliss-32 V4.0-74 Page 24 
witty 12-88-1388 90:40:28 BASRTL SREIBASDATE ST B92: 1 , . (33 
138 ntti 1 END ! end of BASSDATE_TIME 
3 ! end o 
; 799 0888 0 ELUDOM cy 
; PSECT SUMMARY 
3 Name Bytes Attributes 
: _BASS$CODE 1315 -NOVEC.NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 
; Library Statistics 
SR pea, oe Oe eee Symbols -------- Pages Processing 
8 File Total Loaded Percent Mapped Time 
: -$255$DUA28: CSYSLIBISTARLET.L32;1 9776 14 0 581 00:01.0 
3 COMMAND QUALIFIERS 
: PL ESS/CMECK CE FELD, UME TIAL OPT EALZE )/MOTRACEAL ESe4, ISSSBASDATET1/ORJ OBIS :QASOATET! MSRC$:BASDATETI/UPDATE=(ENH$:BASDATETI 
Size: 1315 code + 0 data bytes 
Run Time: 00:23.1 


Elapsed Time: 00:50.8 
Lines/CPU Min: 30 
Lexemes/CPU-Min: 22715 
poe! | Used: 168 pages 
Compilation Complete 


cc 


Af) AH-BT13A-SE | IPMENT CORPORATION | 
VVEL VAX/VMS V4.0 | | L- AND PROPRIETARY 


